home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getmoney / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  694 b   |  24 lines
  1.  
  2.  
  3.  
  4. Declare Function GetPrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFilename$)
  5. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFilename$)
  6.  
  7.  
  8. Global Const SerialNum$ = "1234567"
  9. Global Const INIFILENAME$ = "GetMoney.ini"
  10. Global Const Versnum$ = "1.0"
  11. Global Const MODAL = 1
  12. Global Const MODELESS = 0
  13.  
  14. Global RegStat As String
  15. Global First As String
  16. Global Last As String
  17.  
  18. Sub SelectWholeText (InTextBox As Control)
  19.   InTextBox.SelStart = 0
  20.   InTextBox.SelLength = Len(InTextBox.Text)
  21.  
  22. End Sub
  23.  
  24.